Amiga ISO Collection/AmigaUtilCD2.iso/Programming/C/hf^k-1.dms/in.adf/oemsetup.inf

Text File | 1996-01-19 | 11.7 KB | 375 lines

; OEM Setup script 10/96 Dietmar Eilert $VER: 1.1 (29.10.1996)

$$$(welcome)
;====================== SECTION 1 ==============================================

(if (= @language "deutsch")

    (set #golded_info

        (cat "\n"

            "                                              \n"
            "Dieses Compiler-Paket enthält Release 4 des   \n"
            "Editors GoldED.                               \n"
            "                                              \n"
            "GoldED/OEM - Programmer's Editor              \n"
            "                                              \n"
            "Lizenzierter Vertrieb durch:                  \n"
            "                                              \n"
            "HAAGE & PARTNER Computer GmbH                 \n"
        )
    )

    (set #golded_info

        (cat "\n"

            "                                              \n"
            "This compiler package containes release 4 of  \n"
            "the editor GoldED.                            \n"
            "                                              \n"
            "GoldED/OEM - Programmer's Editor              \n"
            "                                              \n"
            "Licenced for distribution by:                 \n"
            "                                              \n"
            "HAAGE & PARTNER Computer GmbH                 \n"
        )
    )
)

(message #golded_info)

$$$(complete 99)
;====================== SECTION 2 ==============================================

(if (= @language "deutsch")

    (
        (set #golded_ask_install (cat "\n"

            "Dieses Compiler-Paket enthält Release 4 des   \n"
            "Editors GoldED.                               \n"
            "                                              \n"
            "Soll dieser Editor installiert werden ?       \n"
        ))

        (set #golded_ask_install_help

            (cat "\n"

                 " StormC wird zur Zeit mit zwei Editoren ausge- \n"
                 " liefert: StormED und GoldED. Die Installation \n"
                 " von GoldED ist optional möglich.              \n"
            )
        )

        (set #golded_ask_install_yes "Installieren")

        (set #golded_ask_install_no  "Nein")

        (set #golded_insert_disk6

            (cat "\n\n\nBitte legen Sie nun die Diskette 6 in ein beliebiges Laufwerk ein !")
        )

        (set #golded_insert_disk7

            (cat "\n\n\nBitte legen Sie nun die Diskette 7 in ein beliebiges Laufwerk ein !")
        )

        (set #golded_info_error        "\nWarnung: GoldED-Installation unvollständig !"      )
        (set #golded_info_incomplete   "\nWarnung: GoldED-Installation unvollständig !"      )
        (set #golded_info_ok           "\nGoldED wurde erfolgreich installiert."             )
        (set #golded_info_noscript     "\nGoldED-Installation nicht möglich: Script fehlt"   )
        (set #golded_info_noinstaller  "\nGoldED-Installation nicht möglich: Installer fehlt")

        (set #golded_ask_extras "\nGoldED-Extras installieren\n")

        (set #golded_ask_extras_help (cat "\n"

            " GoldED wird mit einer speziellen Erweiterung   \n"
            " für StormC ausgeliefert. Sie können diese Er-  \n"
            " weiterung später direkt von der Extras-Disk    \n"
            " installieren. Auf Wunsch kann die Installation \n"
            " dieser Komponenten auch jetzt erfolgen.        \n"
        ))

        (set #golded_ask_extras_envSTM "StormC-Umgebung")
    )

    ; English strings

    (
        (set #golded_ask_install (cat "\n"

            "This compiler package containes release 4 of  \n"
            "the editor GoldED.                            \n"
            "                                              \n"
            "Do you want to have this editor installed ?   \n"
        ))

        (set #golded_ask_install_help

            (cat "\n"

                 " StormC currently is shipped with two editors: \n"
                 " GoldED and StormED. The installation of GoldED\n"
                 " is optional.                                  \n"
            )
        )

        (set #golded_ask_install_yes "Install")

        (set #golded_ask_install_no  "No")

        (set #golded_insert_disk6

            (cat "\n\n\nPlease insert disk 6 into any disk drive !")
        )

        (set #golded_insert_disk7

            (cat "\n\n\nPlease insert disk 7 into any disk drive !")
        )

        (set #golded_info_error       "\nWarning: GoldED installation incomplete !"             )
        (set #golded_info_incomplete  "\nWarning: GoldED installation incomplete !"             )
        (set #golded_info_ok          "\nGoldED has been installed successfully."               )
        (set #golded_info_noscript    "\nGoldED installation not available: script not found"   )
        (set #golded_info_noinstaller "\nGoldED installation not available: installer not found")

        (set #golded_ask_extras "\nInstall GoldED Extras\n")

        (set #golded_ask_extras_help (cat "\n"

            " GoldED is shipped with a specific extended    \n"
            " configuration for StormC. You can install it  \n"
            " directly from the extras disk later or have it\n"
            " installed right now.                          \n"
        ))

        (set #golded_ask_extras_envSTM "StormC environment")
    )
)

(set golded_install

    (askbool

        (prompt #golded_ask_install)
        (help   #golded_ask_install_help)

        (default 0)

        (choices

            #golded_ask_install_yes
            #golded_ask_install_no
        )
    )
)

(if (= golded_install 1)

    (
        (working "GoldED Installation ...")

        ; look for GoldED files (consider that we may run from a CD ROM)

        (if (exists "install.run" (quiet))

            (set golded_disk (expandpath ""))

            (
                (if (exists "/disk6" (quiet))

                    (set golded_disk (expandpath "/disk6"))

                    (
                        (if (exists "/StormC_Disk6" (quiet))

                            (set golded_disk (expandpath "/StormC_Disk6"))

                            (
                                (set golded_disk "StormC_Disk6:")

                                (askdisk

                                    (prompt #golded_insert_disk6)
                                    (help   #askdir-help)
                                    (dest   "StormC_Disk6")
                                )
                            )
                        )
                    )
                )
            )
        )

        (set golded_script (tackon golded_disk "Install"))

        (if (exists golded_script)

            (
                ; look for installer (ram-resident copy usually created by OEM Setup)

                (if (exists "welcome:installer" (noreq))

                    (set golded_installer "Welcome:installer")

                    (if (exists "t:installer" (noreq))

                        (set golded_installer "t:installer")

                        (if (exists "ram:installer" (noreq))

                            (set golded_installer "ram:installer")

                            (
                                (message #golded_info_noinstaller)

                                (set golded_installer "installer")
                            )
                        )
                    )
                )

                ; create command string for installer

                (set golded_cmd

                    (cat

                        golded_installer

                        " SCRIPT install APPNAME GoldED DEFUSER average LANGUAGE "

                        @language
                    )
                )

                ; launch installer (CD to directory, run script, then restore current path)

                (set golded_old_path @execute-dir)

                (set @execute-dir golded_disk)

                (run golded_cmd)

                (set @execute-dir golded_old_path)

                ; stop Describe presentation

                (run (tackon golded_disk "bin/sync COMMAND=QUIT"))

                ; check return code of GoldED installation; possible values: INCOMPLETE, ERROR, REMOVED, OK

                (if (exists "env:GOLDEDINSTALL" (noreq))

                    ; (getenv) may not be used without checking if var exists (installer bug)

                    (set golded_install_code (getenv "GOLDEDINSTALL"))

                    (set golded_install_code "ERROR")
                )

                (if (= golded_install_code "ERROR")

                    (message #golded_info_error)
                )

                (if (= golded_install_code "INCOMPLETE")

                    (message #golded_info_incomplete)
                )

                (if (= golded_install_code "OK")

                    (
                        ; process next disk (extras)

                        (set golded_install_extras (askoptions

                            (prompt #golded_ask_extras)
                            (help   #golded_ask_extras_help)

                            (default 1)

                            (choices

                                #golded_ask_extras_envSTM
                            )
                        ))

                        (if (= golded_install_extras 1)

                            (
                                (working "Extras Installation ...")

                                (if (exists "/disk7" (quiet))

                                    (set golded_extras (expandpath "/disk7"))

                                    (
                                        (if (exists "/StormC_Disk7" (quiet))

                                            (set golded_extras (expandpath "/StormC_Disk7"))

                                            (
                                                (set golded_extras "StormC_Disk7:")

                                                (askdisk

                                                    (prompt #golded_insert_disk7)
                                                    (help   #askdir-help)
                                                    (dest   "StormC_Disk7")
                                                )
                                            )
                                        )
                                    )
                                )

                                (set golded_script (tackon golded_extras "envSTM20/Install"))

                                (if (exists golded_script)

                                    (
                                        ; create command string for installer

                                        (set golded_cmd

                                            (cat

                                                golded_installer

                                                " SCRIPT Install APPNAME Extras DEFUSER average LANGUAGE "

                                                @language
                                            )
                                        )

                                        ; launch installer (CD to directory, run script, then restore current path)

                                        (set golded_old_path @execute-dir)

                                        (set @execute-dir (tackon golded_extras "envSTM20"))

                                        (run golded_cmd)

                                        (set @execute-dir golded_old_path)
                                    )
                                )
                            )
                        )
                    )
                )

                (message #golded_info_ok)
            )

            (message #golded_info_noscript)
        )
    )
)